﻿Public Class AnimationGeschuetztreffer
    Inherits ObjektAnimation
    Const HalteFrame As Integer = 2
    Dim Zaehler As Integer = 0
    ''' <summary>
    ''' 
    ''' </summary>
    ''' <param name="X"></param>
    ''' <param name="Y"></param>
    ''' <remarks></remarks>
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 8
        BildID = LoadTextur("SchwarzeGeschuetzfeuer", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\Overworld\Explosion+Land.wav", False)
        End If
    End Sub
    'Public Overrides Function Malen(ByVal intColor As System.Drawing.Color, Optional ByVal Zoomfaktor As Single = 1.0, Optional ByVal Feldbreite As Integer = -1) As Boolean
    '    If MyBase.Malen(intColor, Zoomfaktor) Then
    '        Frame -= 1
    '    End If
    '    If HalteFrame <= Zaehler Then
    '        Frame += 1
    '        Zaehler = 0
    '    Else
    '        Zaehler += 1
    '    End If

    '    If Frame > Frames Then
    '        Return False
    '    Else
    '        Return True
    '    End If
    'End Function
End Class
